home *** CD-ROM | disk | FTP | other *** search
- if exist pcbstuff.kbd del pcbstuff.kbd >NUL
- l:\mailfile\newfiles l:\mailfile\flatfile.dat >pcbdoor.txt
- if errorlevel 3 goto usersys
- if errorlevel 2 goto args
- if errorlevel 1 pcboard
- copy l:\mailfile\filelist.hdr+pcbdoor.txt pcbdoor2.txt >NUL
- del pcbdoor.txt >NUL
- ren pcbdoor2.txt pcbdoor.txt >NUL
- goto end
- :usersys
- echo Could not open USER.SYS!>pcbdoor.txt
- :pcboard
- echo Could not open PCBOARD.SYS>pcbdoor.txt
- got end
- :args
- echo Not enough arguments!>pcbdoor.txt
- :end
- l:\pcb\board